home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / sys / 2b_mv_os2_src.lha / MultiView Src / mv_locale.e < prev    next >
Encoding:
Text File  |  1999-02-16  |  1.5 KB  |  53 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE 'locale',
  5.        'libraries/locale'
  6.  
  7. PROC locale()
  8.  
  9.   DEF catalog  : PTR TO catalog, -> locale catalog
  10.       textlist[20] : LIST,
  11.       a
  12.  
  13.   textlist := ['',
  14.                'No program icon !',
  15.                'Error during checking file : ',
  16.                'Cannot allocate structure !',
  17.                'Cannot open FileID.library !',
  18.                'Information',
  19.                'File :',
  20.                'Type :',
  21.                'Select file',
  22.                'Cannot open Asl.library !',
  23.                'Cannot open AmigaGuide.library !\nUsing DEFAULT instead.',
  24.                'Cannot open XFDMaster.library !\nUsing DEFAULT instead.',
  25.                'Cannot unpack file !',
  26.                'Unsupported. Requires password or key.',
  27.                'Unknown error.',
  28.                'Cannot open file.',
  29.                'Not enough memory.',
  30.                'Cannot save temporary file.',
  31.                'Cannot use datatypes.\nUsing C:More instead.',
  32.                'Cannot create appicon.',
  33.                'Do you want to quit or check some files ?',
  34.                'Quit|Check files|Cancel',
  35.                NIL]
  36.  
  37.   localebase := OpenLibrary('locale.library',38)
  38.  
  39.   IF localebase
  40.     catalog      := OpenCatalogA(NIL,'MultiView.catalog',NIL)
  41.     IF catalog
  42.       REPEAT
  43.         textlist[a]  := GetCatalogStr(catalog,a,textlist[a])
  44.         a++
  45.       UNTIL textlist[a] = NIL
  46.       CloseCatalog(catalog)
  47.     ENDIF
  48.     CloseLibrary(localebase)
  49.   ENDIF
  50.  
  51. ENDPROC textlist
  52.  
  53.